home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / pcmini / form1.frm (.txt) next >
Encoding:
Visual Basic Form  |  1999-04-05  |  1.9 KB  |  72 lines
  1. VERSION 5.00
  2. Object = "{FFF48193-EAF1-11D2-8B3D-000000000000}#5.0#0"; "PCM_INI.ocx"
  3. Begin VB.Form Form1 
  4.    Caption         =   "Sample INI"
  5.    ClientHeight    =   1395
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   3780
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   1395
  11.    ScaleWidth      =   3780
  12.    StartUpPosition =   2  'CenterScreen
  13.    Begin VB.CommandButton Command2 
  14.       Caption         =   "Load"
  15.       Height          =   495
  16.       Left            =   2400
  17.       TabIndex        =   3
  18.       Top             =   720
  19.       Width           =   1215
  20.    End
  21.    Begin VB.CommandButton Command1 
  22.       Caption         =   "Save"
  23.       Height          =   495
  24.       Left            =   2400
  25.       TabIndex        =   2
  26.       Top             =   120
  27.       Width           =   1215
  28.    End
  29.    Begin VB.TextBox Text1 
  30.       Height          =   285
  31.       Left            =   120
  32.       TabIndex        =   1
  33.       Top             =   120
  34.       Width           =   2055
  35.    End
  36.    Begin PCM_INI.PCMINI PCMINI1 
  37.       Left            =   120
  38.       Top             =   720
  39.       _ExtentX        =   873
  40.       _ExtentY        =   873
  41.    End
  42.    Begin VB.Label Label1 
  43.       Height          =   255
  44.       Left            =   120
  45.       TabIndex        =   0
  46.       Top             =   840
  47.       Width           =   1935
  48.    End
  49. Attribute VB_Name = "Form1"
  50. Attribute VB_GlobalNameSpace = False
  51. Attribute VB_Creatable = False
  52. Attribute VB_PredeclaredId = True
  53. Attribute VB_Exposed = False
  54. Private Sub Command1_Click()
  55. With PCMINI1
  56.     .INIFile = "MY.INI"
  57.     .Group = "TEST"
  58.     .ID = "GREATING"
  59.     .Value = Text1.Text
  60.     .Save
  61. End With
  62. End Sub
  63. Private Sub Command2_Click()
  64. With PCMINI1
  65.     .INIFile = "MY.INI"
  66.     .Group = "TEST"
  67.     .ID = "GREATING"
  68.     .Load
  69.     Label1.Caption = .Value
  70. End With
  71. End Sub
  72.